home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 2 / LSD and 17bit Compendium Deluxe - Volume II.iso / a / prog / asmsrc / icsources.lha / PROGRAMS / BOARDGAME < prev    next >
Encoding:
Text File  |  1989-08-12  |  30.3 KB  |  1,570 lines
  1. ;Resolution was written by AX using graphics
  2. ;by GIZ and questions by POD
  3. ;RELEAST BY INNER CITY 1990
  4.  
  5.      section ax,code_c
  6.     opt c-,d+,w-,o+
  7.     include 'df1:insert/custom registers'
  8.     
  9. akey=$bfec01
  10. badd=(320*256)/8
  11.  
  12.     lea $dff000,a6
  13.     move.w #%1111111111111111,bltafwm (a6)
  14.     move.w #%1111111111111111,bltalwm (a6)
  15.     move.w #$87e0,dmacon(a6)
  16.     ;move.w #$0020,dmacon(a6)
  17.     lea $dff144,a0
  18.     moveq #7,d0
  19. lolk:    clr.l (a0)
  20.     addq.l #8,a0
  21.     dbf d0,lolk
  22.     move.w #160,question
  23.     move.b #1,moggy
  24.     move.b #1,tune
  25.     move.b #0,bung
  26.     move.b #1,numpla
  27.     move.b #1,curpla
  28.     move.l #howz,a3
  29.     move.l a3,bddr
  30.     move.b $dff006,rav
  31.     subi.b #51,rav
  32.     bpl spex1
  33.     move.l #table+(267*30),a2
  34.     move.l a2,addr
  35.     jmp kolp
  36. spex1:    subi.b #102,rav
  37.     bpl spex2
  38.     move.l #table+(267*60),a2
  39.     move.l a2,addr
  40.     jmp kolp
  41. spex2:    subi.b #153,rav
  42.     bpl spex3
  43.     move.l #table+(267*90),a2
  44.     move.l a2,addr
  45.     jmp kolp
  46. spex3:    subi.b #204,rav
  47.     bpl spex4
  48.     move.l #table+(267*120),a2
  49.     move.l a2,addr
  50.     jmp kolp
  51. spex4:    move.l #table,a2
  52.     move.l a2,addr
  53. kolp:
  54.     move.l #0,dir
  55.     jsr cop_init
  56.      move.l $6c,oldirq
  57.      move.l #newirq,$6c 
  58.  
  59. two:    subi.w #1,question
  60.     cmpi.w #0,question
  61.     bne zog
  62.     move.w #152,question
  63. zog:
  64.      btst #6,$bfe001
  65.     bne two
  66.      cmp.b #1,music
  67.      bne hug
  68.      jsr mt_end
  69. hug:
  70.      move.l oldirq,$6c
  71.      move.l copaddr,a0
  72.      move.l oldcop,(a0)
  73. nolib:    
  74.     rts    
  75. newirq:  
  76.     movem.l d0-d7/a0-a6,$75000
  77.     cmpi.b #1,grouse
  78.     beq vugy
  79.     cmpi.b #1,flat
  80.     beq hugy
  81.     cmpi.b #1,players
  82.     bne lugy
  83.     cmpi.b #1,bung
  84.     bne lugy
  85.     cmpi.b #1,before
  86.     beq lugy
  87. sugy:    jsr scrollmessblit
  88.     jmp hugy
  89. lugy:    move.w #$000b,hello
  90.     jmp bugy
  91. hugy:    move.w #$0eee,hello
  92.     jmp bugy
  93. vugy:   
  94.     cmpi.b #1,moggy
  95.     bne dce1
  96.     jsr interblit1
  97.     jmp bugy
  98. dce1:    cmpi.b #2,moggy
  99.     bne dce2
  100.     jsr interblit2
  101.     jmp bugy
  102. dce2:    cmpi.b #3,moggy
  103.     bne bugy
  104.     jsr interblit3
  105. bugy:    move.b akey,d0
  106.     not d0
  107.     ror.b d0
  108. frz:    
  109.     cmp.b #$59,d0
  110.     bne frz1
  111.     cmp.b #1,music
  112.     bne bang
  113.     move.b #0,music
  114.     jsr mt_end
  115.     move.w #$0000,eq1
  116.     move.w #$0000,eq2
  117.     move.w #$0000,eq3
  118.     move.w #$0000,eq4
  119. frz1:    
  120.     cmp.b #$50,d0
  121.     bne bang
  122.     move.b #1,tune
  123.     move.w #$0f,$dff096
  124.     jsr mt_init
  125.     move.b #1,music
  126.     jmp bang
  127. bang:
  128.     cmpi.b #1,music
  129.     bne grew
  130.     jsr mt_music
  131.     jsr equals
  132. grew:
  133.     cmpi.b #1,players
  134.     beq raz
  135.     jsr printb
  136.     jsr printb
  137.     jsr printb
  138.     jsr printb
  139.     jsr printb
  140.     jmp tr
  141. raz:
  142.     cmpi.b #1,moving
  143.     bne hjk
  144.     addi.b #1,leng
  145.     cmpi.b #10,leng
  146.     bne hjk
  147.     move.b #0,moving
  148.     move.b #0,leng
  149. hjk:
  150.     cmpi.b #1,play
  151.     bne hao
  152.     addi.b #1,len
  153.     cmpi.b #8,len
  154.     bne hao
  155.     cmpi.b #1,music
  156.     beq fregx
  157.     move.w #$0001,$dff096
  158. fregx:
  159.     move.b #0,play
  160.     move.b #0,len
  161. hao:    
  162.     cmpi.w #0,time
  163.     beq rew
  164.     addi.w #1,time
  165. rew:
  166.     cmpi.b #0,stop
  167.     bne nog
  168.     jsr printa
  169.     jsr printa
  170.     cmpi.b #1,curpla
  171.     bne ging1
  172.     jsr player1blit
  173.     jmp ging3
  174. ging1:    cmpi.b #2,curpla
  175.     bne ging2
  176.     jsr player2blit
  177.     jmp ging3
  178. ging2:    cmpi.b #3,curpla
  179.     bne ging3
  180.     jsr player3blit
  181. ging3:
  182.     jmp cow
  183. nog:    
  184.     cmpi.b #1,done
  185.     beq row
  186.     addi.w #$0111,tex1
  187.     addi.w #$0111,tex4
  188.     cmpi.w #$0fff,tex1
  189.     bne cow
  190.     move.b #1,done
  191.     move.w #$0500,bar
  192. row:    
  193.     cmp.w #0,time
  194.     bne xow
  195.     jmp rfk
  196. xow:    cmp.w #80,time
  197.     bne cow
  198.     move.w #0,time
  199. rfk:    jsr joyu
  200.     jmp cow    
  201. cow:
  202.     cmp.w #79,time
  203.     bne tr
  204.     cmpi.b #1,music
  205.     beq tr
  206.     move.w #$0001,$dff096
  207.     move.b #0,wongo
  208. tr:
  209.     cmp.b #0,dir
  210.     bne boow
  211.     subi.w #$0111,l1
  212.     subi.w #$0111,l2
  213.     move.w #$0080,cursor
  214.     cmpi.b #1,done
  215.     bne goo1
  216.     move.w l2,tex3
  217. goo1:    cmpi.w #$0111,l1
  218.     bne who
  219.     move.b #1,dir
  220.     jmp who
  221. boow:   addi.w #$0111,l1
  222.     addi.w #$0111,l2
  223.     move.w #$0000,cursor
  224.     cmpi.b #1,done
  225.     bne goo2
  226.     move.w l2,tex3
  227. goo2:    cmpi.w #$0fff,l1
  228.     bne who
  229.     move.b #0,dir
  230. who:    movem.l $75000,d0-d7/a0-a6
  231.     dc.w $4ef9
  232. oldirq: dc.l 0
  233.     even
  234. joyu:
  235.     cmpi.b #0,before
  236.     bne bj
  237.     move.w $dff00c,d0
  238.     move.w d0,d1
  239.     lsr.w #1,d1
  240.     eor.w d0,d1
  241.     btst #0,d1
  242.     bne down
  243.     btst #8,d1
  244.     bne up
  245. no:    
  246.     btst #7,$bfe001
  247.     bne hj
  248.     cmpi.b #0,before
  249.     bne bj
  250. fruh:
  251.     move.w #$0fff,tex2
  252.     move.b #1,before
  253.     move.w #1,time
  254. grs:
  255.     cmpi.b #0,pos
  256.     bne grs1
  257.     cmpi.b #0,bung    
  258.     bne moog1
  259.     move.b #1,numpla
  260.     move.b #1,bung
  261.     jmp hj
  262. moog1:
  263.     cmpi.b #65,ans
  264.     bne wrong
  265.     jmp right
  266. grs1:
  267.     cmpi.b #1,pos
  268.     bne grs2
  269.     cmpi.b #0,bung    
  270.     bne moog2
  271.     move.b #2,numpla
  272.     move.b #1,bung
  273.     jmp hj
  274. moog2:
  275.     cmpi.b #66,ans
  276.     bne wrong
  277.     jmp right
  278. grs2:
  279.     cmpi.b #0,bung    
  280.     bne moog3
  281.     move.b #3,numpla
  282.     move.b #1,bung
  283.     jmp hj
  284. moog3:
  285.     cmpi.b #67,ans
  286.     bne wrong
  287.     jmp right
  288. museini:
  289.     cmpi.b #1,music
  290.     beq nope
  291.     move.w #$0f,$dff096
  292.     move.b #1,music
  293.     jmp kiop
  294. nope:    move.w #$0f,$dff096
  295.     move.b #0,music
  296. kiop:    rts
  297. right:
  298.     cmp.b #1,curpla
  299.     bne right1
  300.     jsr yeahplay
  301.     jsr rightblit
  302.     move.b #0,chit
  303.     move.b #1,wongo
  304.     addi.b #1,score
  305. crug:    move.l logo+5840,picdata+10000+2
  306. crug1:  move.l logo+5840+badd,picdata+10000+2+badd
  307. crug2:    move.l logo+5840+badd*2,picdata+10000+2+badd*2
  308. crug3:    move.l logo+5840+badd*3,picdata+10000+2+badd*3
  309. crug4:    move.l logo+5840+badd*4,picdata+10000+2+badd*4
  310.     move.l crug+6,a1
  311.     move.l crug+2,a2
  312.     suba.l #40,a1
  313.     suba.l #40,a2
  314.     move.l a1,crug+6
  315.     move.l a2,crug+2    
  316.     move.l crug1+6,a1
  317.     move.l crug1+2,a2
  318.     suba.l #40,a1
  319.     suba.l #40,a2
  320.     move.l a1,crug1+6
  321.     move.l a2,crug1+2    
  322.     move.l crug2+6,a1
  323.     move.l crug2+2,a2
  324.     suba.l #40,a1
  325.     suba.l #40,a2
  326.     move.l a1,crug2+6
  327.     move.l a2,crug2+2    
  328.     move.l crug3+6,a1
  329.     move.l crug3+2,a2
  330.     suba.l #40,a1
  331.     suba.l #40,a2
  332.     move.l a1,crug3+6
  333.     move.l a2,crug3+2    
  334.     move.l crug4+6,a1
  335.     move.l crug4+2,a2
  336.     suba.l #40,a1
  337.     suba.l #40,a2
  338.     move.l a1,crug4+6
  339.     move.l a2,crug4+2    
  340.     addi.b #1,chit
  341.     cmp.b #3,chit
  342.     bne crug
  343.     cmpi.b #3,numpla
  344.     bne frig
  345.     move.b #2,curpla
  346.     jmp hj
  347. frig:    cmpi.b #2,numpla
  348.     bne frig1
  349.     move.b #2,curpla
  350.     jmp hj
  351. frig1:    jmp hj
  352.     even
  353. right1:
  354.     cmp.b #2,curpla
  355.     bne right2
  356.     jsr yeahplay
  357.     jsr rightblit
  358.     move.b #1,wongo
  359.     addi.b #1,score1
  360.     move.b #0,chit
  361. crag:    move.l logo+5840,picdata+10000+8
  362. crag1:  move.l logo+5840+badd,picdata+10000+8+badd
  363. crag2:    move.l logo+5840+badd*2,picdata+10000+8+badd*2
  364. crag3:    move.l logo+5840+badd*3,picdata+10000+8+badd*3
  365. crag4:    move.l logo+5840+badd*4,picdata+10000+8+badd*4
  366.     move.l crag+6,a1
  367.     move.l crag+2,a2
  368.     suba.l #40,a1
  369.     suba.l #40,a2
  370.     move.l a1,crag+6
  371.     move.l a2,crag+2    
  372.     move.l crag1+6,a1
  373.     move.l crag1+2,a2
  374.     suba.l #40,a1
  375.     suba.l #40,a2
  376.     move.l a1,crag1+6
  377.     move.l a2,crag1+2    
  378.     move.l crag2+6,a1
  379.     move.l crag2+2,a2
  380.     suba.l #40,a1
  381.     suba.l #40,a2
  382.     move.l a1,crag2+6
  383.     move.l a2,crag2+2    
  384.     move.l crag3+6,a1
  385.     move.l crag3+2,a2
  386.     suba.l #40,a1
  387.     suba.l #40,a2
  388.     move.l a1,crag3+6
  389.     move.l a2,crag3+2    
  390.     move.l crag4+6,a1
  391.     move.l crag4+2,a2
  392.     suba.l #40,a1
  393.     suba.l #40,a2
  394.     move.l a1,crag4+6
  395.     move.l a2,crag4+2    
  396.     addi.b #1,chit
  397.     cmp.b #3,chit
  398.     bne crag
  399.     cmpi.b #3,numpla
  400.     bne trig
  401.     move.b #3,curpla
  402.     jmp hj
  403. trig:    move.b #1,curpla
  404.     jmp hj
  405. right2: 
  406.     cmp.b #3,curpla
  407.     bne wrong
  408.     jsr yeahplay
  409.     jsr rightblit
  410.     move.b #1,wongo
  411.     addi.b #1,score2
  412.     move.b #0,chit
  413. brug:    move.l logo+5840,picdata+10000+14
  414. brug1:    move.l logo+5840+badd,picdata+10000+14+badd
  415. brug2:    move.l logo+5840+badd*2,picdata+10000+14+badd*2
  416. brug3:    move.l logo+5840+badd*3,picdata+10000+14+badd*3
  417. brug4:    move.l logo+5840+badd*4,picdata+10000+14+badd*4
  418.     move.l brug+6,a1
  419.     move.l brug+2,a2
  420.     suba.l #40,a1
  421.     suba.l #40,a2
  422.     move.l a1,brug+6
  423.     move.l a2,brug+2    
  424.     move.l brug1+6,a1
  425.     move.l brug1+2,a2
  426.     suba.l #40,a1
  427.     suba.l #40,a2
  428.     move.l a1,brug1+6
  429.     move.l a2,brug1+2    
  430.     move.l brug2+6,a1
  431.     move.l brug2+2,a2
  432.     suba.l #40,a1
  433.     suba.l #40,a2
  434.     move.l a1,brug2+6
  435.     move.l a2,brug2+2    
  436.     move.l brug3+6,a1
  437.     move.l brug3+2,a2
  438.     suba.l #40,a1
  439.     suba.l #40,a2
  440.     move.l a1,brug3+6
  441.     move.l a2,brug3+2    
  442.     move.l brug4+6,a1
  443.     move.l brug4+2,a2
  444.     suba.l #40,a1
  445.     suba.l #40,a2
  446.     move.l a1,brug4+6
  447.     move.l a2,brug4+2    
  448.     addi.b #1,chit
  449.     cmp.b #3,chit
  450.     bne brug
  451.     move.b #1,curpla
  452.     jmp hj
  453. wrong:
  454.     move.b #1,wongo
  455.     jsr huhuplay
  456.     jsr wrongblit
  457.     cmpi.b #1,numpla
  458.     bne gax1
  459.     jmp hj
  460. gax1:    cmpi.b #2,numpla
  461.     bne gax2
  462.     cmpi.b #1,curpla
  463.     bne fc1
  464.     move.b #2,curpla
  465.     jmp hj
  466. fc1:    move.b #1,curpla
  467.     jmp hj
  468. gax2:    cmpi.b #1,curpla
  469.     bne fc2
  470.     move.b #2,curpla
  471.     jmp hj
  472. fc2:    cmpi.b #2,curpla
  473.     bne fc3
  474.     move.b #3,curpla
  475.     jmp hj
  476. fc3:    move.b #1,curpla
  477.     jmp hj
  478. bj:    
  479.     cmpi.b #25,score
  480.     bne greb1
  481.     jsr blitwin1
  482.     jmp ghu
  483. greb1:    cmpi.b #25,score1
  484.     bne greb2
  485.     jsr blitwin2
  486.     jmp ghu
  487. greb2:    cmpi.b #25,score2
  488.     bne ghu
  489.     jsr blitwin3
  490. ghu:    
  491.     btst #7,$bfe001
  492.     bne hj
  493.     move.b #0,flat
  494.     cmpi.b #25,score
  495.     bne jug1
  496.     jsr blitclr
  497.     move.b #1,grouse
  498.     move.l #howz,a1
  499.     move.l a1,bddr
  500.     move.b #0,score
  501.     move.b #0,score1
  502.     move.b #0,score2
  503.     jsr clearcompblit
  504.     jsr setposj
  505.     jmp jug3
  506. jug1:
  507.     cmpi.b #25,score1
  508.     bne jug2
  509.     jsr blitclr
  510.     move.b #1,grouse
  511.     move.l #howz,a1
  512.     move.l a1,bddr
  513.     move.b #0,score
  514.     move.b #0,score1
  515.     move.b #0,score2
  516.     jsr clearcompblit
  517.     jsr setposj
  518.     jmp jug3
  519. jug2:
  520.     cmpi.b #25,score2
  521.     bne jug3
  522.     jsr blitclr
  523.     move.b #1,grouse
  524.     move.l #howz,a1
  525.     move.l a1,bddr
  526.     move.b #0,score
  527.     move.b #0,score1
  528.     move.b #0,score2
  529.     jsr clearcompblit
  530.     jsr setposj
  531. jug3:    
  532.     move.l #picdata+3000+2,sel1+6
  533.     move.w #$0000,tex1
  534.     move.w #$0000,tex2
  535.     move.w #$0000,tex3
  536.     move.w #$0000,tex4
  537.     move.b #0,before
  538.     move.b #0,stop
  539.     move.b #0,done
  540.     move.b #0,quest
  541.     move.w #0,bar
  542.     
  543.     cmpi.b #1,music
  544.     beq dreg
  545.     move.w #$0001,$dff096
  546. dreg:
  547.     move.w #$9301,slh1
  548.     move.w #$9a01,slh2
  549.     move.b #0,pos
  550. hj:
  551.     rts
  552. down:
  553.     cmp.b #1,moving
  554.     bne dfg
  555.     rts
  556. dfg:
  557.     cmp.b #0,pos
  558.     bne down1
  559.     move.w #$9b01,slh1
  560.     move.w #$a201,slh2
  561.     move.b #1,pos
  562.     jsr click
  563.     rts
  564. down1:    
  565.     cmp.b #1,pos
  566.     bne down2
  567.     move.w #$a301,slh1
  568.     move.w #$aa01,slh2
  569.     move.b #2,pos
  570.     jsr click
  571.     rts
  572. down2:    
  573.     rts
  574. up:    
  575.     cmp.b #1,moving
  576.     bne asd
  577.     rts
  578. asd:
  579.     cmp.b #1,pos
  580.     bne up1
  581.     move.w #$9301,slh1
  582.     move.w #$9a01,slh2
  583.     move.b #0,pos
  584.     jsr click
  585.     rts
  586. up1:    
  587.     cmp.b #2,pos
  588.     bne up2
  589.     move.w #$9b01,slh1
  590.     move.w #$a201,slh2
  591.     move.b #1,pos
  592.     jsr click
  593.     rts
  594. up2:
  595.     rts
  596. cop_init:
  597.      lea logo-1,a0
  598.      move.l a0,d0
  599.      move.w d0,alo1
  600.      swap d0
  601.      move.w d0,ahi1
  602.      lea logo+badd-1,a0
  603.      move.l a0,d0
  604.      move.w d0,alo2
  605.      swap d0
  606.      move.w d0,ahi2
  607.      lea logo+badd*2-1,a0
  608.      move.l a0,d0
  609.      move.w d0,alo3
  610.      swap d0
  611.      move.w d0,ahi3
  612.      lea logo+badd*3-1,a0
  613.      move.l a0,d0
  614.      move.w d0,alo4
  615.      swap d0
  616.      move.w d0,ahi4
  617.      lea logo+badd*4-1,a0
  618.      move.l a0,d0
  619.      move.w d0,alo5
  620.      swap d0
  621.      move.w d0,ahi5
  622.      lea picdata+2600,a0
  623.      move.l a0,d0
  624.      move.w d0,lo1
  625.      swap d0
  626.      move.w d0,hi1
  627.      lea picdata+badd+2600,a0
  628.      move.l a0,d0
  629.      move.w d0,lo2
  630.      swap d0
  631.      move.w d0,hi2
  632.      lea picdata+badd*2+2600,a0
  633.      move.l a0,d0
  634.      move.w d0,lo3
  635.      swap d0
  636.      move.w d0,hi3
  637.      lea picdata+badd*3+2600,a0
  638.      move.l a0,d0
  639.      move.w d0,lo4
  640.      swap d0
  641.      move.w d0,hi4
  642.      lea picdata+badd*4+2600,a0
  643.      move.l a0,d0
  644.      move.w d0,lo5
  645.      swap d0
  646.      move.w d0,hi5
  647.      moveq #$00,d0
  648.      lea grafname,a1
  649.      move.l $4,a6
  650.      jsr -132(A6)
  651.      move.l $4,A6
  652.      jsr -408(a6)
  653.      tst d0
  654.      beq nolib
  655.      move.l d0,grafbase
  656.      move.l d0,a6
  657.      add.l #$32,d0
  658.      move.l d0,a0
  659.      move.l a0,copaddr
  660.      move.l (a0),oldcop
  661.      move.l #newcop,(a0)
  662.      rts
  663.     even
  664. grafname: dc.b "graphics.library",0
  665. grafbase: dc.l 0
  666. oldcop:   dc.l 0
  667. copaddr:  dc.l 0
  668. dir:      dc.b 0
  669. conta:      dc.b 0
  670. yaz:      dc.b 0
  671. addr:      dc.l 0
  672. stop:      dc.b 0
  673. quest:      dc.b 0
  674. done:      dc.b 0
  675. before:      dc.b 0
  676. time:      dc.w 0
  677. pos:      dc.b 0
  678. ans:      dc.b 0
  679. score:    dc.b 0
  680. len:      dc.b 0
  681. play:      dc.b 0
  682. moving:      dc.b 0
  683. leng:      dc.b 0
  684. players:  dc.b 0
  685. bddr:     dc.l 0
  686. numpla:      dc.b 0
  687. curpla:      dc.b 0
  688. score1:      dc.b 0
  689. score2:   dc.b 0
  690. bung:      dc.b 0
  691. music:      dc.b 0
  692. wongo:      dc.b 0
  693. tune:      dc.b 0
  694. chit:      dc.b 0
  695. gddr:      dc.l 0
  696. numod:      dc.b 0
  697. scrollo:  dc.b 0
  698. countre:  dc.b 0
  699. thistime: dc.b 0
  700. flat:      dc.b 0
  701. grouse:   dc.b 0
  702. moggy:    dc.b 0
  703. rav:      dc.b 0
  704. question: dc.w 0
  705. subber:      dc.w 0
  706.  
  707.     even
  708. newcop:     dc.w $0100,$5200
  709.       dc.w $0102
  710. boh:      dc.w $0000
  711.      dc.w $0120
  712. sp1l:     dc.w $0000,$0122
  713. sp1h:      dc.w $0000 
  714.      dc.w $0124
  715. sp2l:     dc.w $0000,$0126
  716. sp2h:      dc.w $0000 
  717.      dc.w $0128
  718. sp3l:     dc.w $0000,$012a
  719. sp3h:      dc.w $0000 
  720.      dc.w $012c
  721. sp4l:     dc.w $0000,$012e
  722. sp4h:      dc.w $0000
  723.      dc.w $0130
  724. sp5l:     dc.w $0000,$132
  725. sp5h:      dc.w $0000
  726.  scr:       dc.w $2001,$fffe
  727.       dc.w $00e0
  728. ahi1:     dc.w $0000
  729.      dc.w $00e2
  730. alo1:     dc.w $0000     
  731.      dc.w $00e4
  732. ahi2:     dc.w $0000
  733.      dc.w $00e6
  734. alo2:     dc.w $0000 
  735.      dc.w $00e8
  736. ahi3:     dc.w $0000
  737.      dc.w $00ea
  738. alo3:     dc.w $0000 
  739.      dc.w $00ec
  740. ahi4:     dc.w $0000
  741.      dc.w $00ee
  742. alo4:     dc.w $0000 
  743.      dc.w $00f0
  744. ahi5:     dc.w $0000
  745.      dc.w $00f2
  746. alo5:     dc.w $0000
  747.      dc.w $008e,$3081 
  748.      dc.w $0090,$30b1
  749.      dc.w $0092,$0030
  750.      dc.w $0094,$00c8 
  751.      dc.w $180,$000,$182,$000,$184,$e00,$186,$a00
  752.      dc.w $188,$d80,$18a,$ff0,$18c,$0f0,$18e,$080,$190,$0b6
  753.      dc.w $192,$0dd,$194,$019,$196,$016,$198,$fed,$19a,$fdb
  754.      dc.w $19c,$fb9,$19e,$b87,$1a0,$854,$1a2,$111,$1a4,$222
  755.      dc.w $1a6,$333,$1a8,$444,$1aa,$555,$1ac,$666,$1ae,$777
  756.      dc.w $1b0,$888,$1b2,$999,$1b4,$aaa,$1b6,$bbb,$1b8,$ccc
  757.      dc.w $1ba,$ddd,$1bc,$eee,$1be,$fff
  758.      dc.w $7001,$fffe
  759.      dc.w $0180
  760. l1:     dc.w $0fff
  761.      dc.w $7101,$fffe
  762.      dc.w $0180,$0000
  763.      dc.w $00e0
  764.  hi1:     dc.w $0000
  765.      dc.w $00e2
  766.  lo1:     dc.w $0000     
  767.      dc.w $00e4
  768.  hi2:     dc.w $0000
  769.      dc.w $00e6
  770.  lo2:     dc.w $0000 
  771.      dc.w $00e8
  772.  hi3:     dc.w $0000
  773.      dc.w $00ea
  774.  lo3:     dc.w $0000 
  775.      dc.w $00ec
  776.  hi4:     dc.w $0000
  777.      dc.w $00ee
  778.  lo4:     dc.w $0000 
  779.      dc.w $00f0
  780.  hi5:     dc.w $0000
  781.      dc.w $00f2
  782.  lo5:     dc.w $0000
  783.      dc.w $0182
  784. tex1:     dc.w $0000
  785. slh1:     dc.w $9301,$fffe
  786.      dc.w $0180
  787. bar:     dc.w $0000
  788.      dc.w $0182
  789. tex3:     dc.w $0000
  790. slh2:     dc.w $9a01,$fffe
  791.      dc.w $0180,$0000
  792.      dc.w $0182
  793. tex4:     dc.w $0000
  794.      dc.w $ab01,$fffe
  795.      dc.w $0182
  796. tex2:     dc.w $0000
  797.      dc.w $0180,$0000
  798.      dc.w $c401,$fffe
  799.      dc.w $0180
  800. l2:     dc.w $0fff
  801.      dc.w $0182
  802.      dc.w $0fff
  803.      dc.w $c501,$fffe
  804.      dc.w $0180,$0000
  805.      dc.w $0184,$0222
  806.      dc.w $0190
  807. eq1:     dc.w $0000
  808.      dc.w $0192
  809. eq2:     dc.w $0000
  810.      dc.w $0194
  811. eq3:     dc.w $0000
  812.      dc.w $0196
  813. eq4:     dc.w $0000
  814.      dc.w $018e
  815. cursor:     dc.w $0080
  816.      dc.w $0184
  817. drives:     dc.w $0f00
  818.      dc.w $c801,$fffe
  819.      dc.w $0102
  820. scrol1:     dc.w $0000
  821.      dc.w $0182,$0222
  822.      dc.w $c901,$fffe
  823.      dc.w $01ba
  824. hello:     dc.w $0eee
  825.      dc.w $0182,$0444
  826.      dc.w $ca01,$fffe
  827.      dc.w $0182,$0666
  828.      dc.w $cb01,$fffe
  829.      dc.w $0182,$0888
  830.      dc.w $cc01,$fffe
  831.      dc.w $0182,$0aaa
  832.      dc.w $cd01,$fffe
  833.      dc.w $0182,$0ccc
  834.      dc.w $ce01,$fffe
  835.      dc.w $0182,$0eee
  836.      dc.w $d001,$fffe
  837.      dc.w $0182,$0ccc
  838.      dc.w $d101,$fffe
  839.      dc.w $0182,$0aaa
  840.      dc.w $d201,$fffe
  841.      dc.w $0182,$0888
  842.      dc.w $0180,$0000
  843.      dc.w $d301,$fffe
  844.      dc.w $0182,$0000
  845.      dc.w $d601,$fffe
  846.      dc.w $0180
  847. l3:     dc.w $0000
  848.      dc.w $d701,$fffe
  849.      dc.w $0102,$0000
  850.      dc.w $0180,$0000
  851.      dc.w $ffff,$fffe
  852.      even
  853. picdata:
  854.      incbin "df1:graphics/bbc.chrset.raw"
  855. printa:     
  856.      move.b #0,grouse
  857.      move.b #0,flat
  858.      move.b #1,players
  859.      move.b #1,bung
  860.      move.b #0,before
  861.          move.l addr,a2
  862.          move.b (a2)+,yaz
  863.          move.l a2,addr
  864.          jmp char1
  865. printb:     
  866.      move.l bddr,a3
  867.      move.b (a3)+,yaz
  868.      move.l a3,bddr
  869.      cmpi.b #42,yaz
  870.      bne char1
  871.      move.b #1,players
  872.      move.b #1,stop
  873.      rts
  874. char1:     
  875.      cmp.b #65,yaz  ;A
  876.          bne char2
  877.          move.l #picdata+320,sel1+2
  878.          jmp printer
  879. char2:   
  880.      cmp.b #66,yaz  ;B
  881.          bne char3
  882.          move.l #picdata+320+1,sel1+2
  883.          jmp printer   
  884. char3:   
  885.      cmp.b #67,yaz  ;C
  886.          bne char4
  887.          move.l #picdata+320+2,sel1+2
  888.          jmp printer   
  889. char4:   
  890.      cmp.b #68,yaz  ;D
  891.          bne char5
  892.          move.l #picdata+320+3,sel1+2
  893.          jmp printer
  894. char5:   
  895.      cmp.b #69,yaz  ;E
  896.          bne char6
  897.          move.l #picdata+320+4,sel1+2
  898.          jmp printer         
  899. char6:
  900.      cmp.b #70,yaz  ;F
  901.          bne char7
  902.          move.l #picdata+320+5,sel1+2
  903.          jmp printer         
  904. char7:   
  905.      cmp.b #71,yaz  ;G
  906.          bne char8
  907.          move.l #picdata+320+6,sel1+2
  908.          jmp printer         
  909. char8:   
  910.      cmp.b #72,yaz  ;H
  911.          bne char9
  912.          move.l #picdata+320+7,sel1+2
  913.          jmp printer         
  914. char9:
  915.      cmp.b #73,yaz  ;I
  916.          bne char10
  917.          move.l #picdata+320+8,sel1+2
  918.          jmp printer         
  919. char10:   
  920.      cmp.b #74,yaz  ;J
  921.          bne char11
  922.          move.l #picdata+320+9,sel1+2
  923.          jmp printer       
  924. char11: 
  925.      cmp.b #75,yaz  ;K
  926.          bne char12
  927.          move.l #picdata+320+10,sel1+2
  928.          jmp printer 
  929. char12: 
  930.      cmp.b #76,yaz  ;L
  931.          bne char13
  932.          move.l #picdata+320+11,sel1+2
  933.          jmp printer  
  934. char13: 
  935.      cmp.b #77,yaz  ;M
  936.          bne char14
  937.          move.l #picdata+320+12,sel1+2
  938.          jmp printer 
  939. char14: 
  940.      cmp.b #78,yaz  ;N
  941.          bne char15
  942.          move.l #picdata+320+13,sel1+2
  943.          jmp printer 
  944. char15:
  945.       cmp.b #79,yaz  ;O
  946.          bne char16
  947.          move.l #picdata+320+14,sel1+2
  948.          jmp printer 
  949. char16:
  950.       cmp.b #80,yaz  ;P
  951.          bne char17
  952.          move.l #picdata+320+15,sel1+2
  953.          jmp printer 
  954. char17:
  955.       cmp.b #81,yaz  ;Q
  956.          bne char18
  957.          move.l #picdata+320+16,sel1+2
  958.          jmp printer 
  959. char18:
  960.       cmp.b #82,yaz  ;R
  961.          bne char19
  962.          move.l #picdata+320+17,sel1+2
  963.          jmp printer 
  964. char19:
  965.      cmp.b #83,yaz  ;S
  966.          bne char20
  967.          move.l #picdata+320+18,sel1+2
  968.          jmp printer 
  969. char20:
  970.      cmp.b #84,yaz  ;T
  971.          bne char21
  972.          move.l #picdata+320+19,sel1+2
  973.          jmp printer
  974. char21:
  975.      cmp.b #85,yaz  ;U
  976.          bne char22
  977.          move.l #picdata+320+20,sel1+2
  978.          jmp printer
  979. char22:
  980.      cmp.b #86,yaz  ;V
  981.          bne char23
  982.          move.l #picdata+320+21,sel1+2
  983.          jmp printer
  984. char23:
  985.      cmp.b #87,yaz  ;W
  986.          bne char24
  987.          move.l #picdata+320+22,sel1+2
  988.          jmp printer
  989. char24:
  990.      cmp.b #88,yaz  ;X
  991.          bne char25
  992.          move.l #picdata+320+23,sel1+2
  993.          jmp printer
  994. char25:
  995.      cmp.b #89,yaz  ;Y
  996.          bne char26
  997.          move.l #picdata+320+24,sel1+2
  998.          jmp printer
  999. char26:
  1000.      cmp.b #90,yaz  ;Z
  1001.          bne inserty27
  1002.          move.l #picdata+320+25,sel1+2
  1003.          jmp printer
  1004. inserty27:
  1005.      cmp.b #33,yaz  ;!
  1006.      bne inserty28
  1007.      move.l #picdata+320+26,sel1+2
  1008.      jmp printer
  1009. inserty28:
  1010.      cmp.b #63,yaz  ;?
  1011.      bne char27
  1012.      move.l #picdata+320+27,sel1+2
  1013.      jmp printer         
  1014. char27:
  1015.      cmp.b #32,yaz  ;SPACE
  1016.      bne char28
  1017.      move.l #picdata,sel1+2
  1018.      jmp printer
  1019. char28:
  1020.      cmp.b #42,yaz  ;END OF QUESTION
  1021.      bne char29
  1022.      move.b #1,stop 
  1023.      move.b (a2)+,ans
  1024.      move.l a2,addr
  1025.      move.w question,subber
  1026.      lea  table,a3
  1027.      cmpi.w #0,subber
  1028.      beq roe
  1029. fgu:     adda.l #267,a3
  1030.      subi.w #1,subber
  1031.      cmpi.w #0,subber
  1032.      bne fgu
  1033. roe:     move.l a3,addr
  1034.      rts
  1035.     
  1036. char29:
  1037.      cmp.b #49,yaz  ;1
  1038.          bne char30
  1039.          move.l #picdata+1,sel1+2
  1040.          jmp printer
  1041. char30:
  1042.       cmp.b #50,yaz  ;2
  1043.          bne char31
  1044.          move.l #picdata+2,sel1+2
  1045.          jmp printer
  1046. char31:
  1047.       cmp.b #51,yaz  ;3
  1048.          bne char32
  1049.          move.l #picdata+3,sel1+2
  1050.          jmp printer
  1051. char32:
  1052.       cmp.b #52,yaz  ;4
  1053.          bne char33
  1054.          move.l #picdata+4,sel1+2
  1055.          jmp printer
  1056. char33:
  1057.       cmp.b #53,yaz  ;5
  1058.          bne char34
  1059.          move.l #picdata+5,sel1+2
  1060.          jmp printer
  1061. char34:
  1062.       cmp.b #54,yaz  ;6
  1063.          bne char35
  1064.          move.l #picdata+6,sel1+2
  1065.          jmp printer
  1066. char35:         
  1067.          cmp.b #55,yaz  ;7
  1068.          bne char36
  1069.          move.l #picdata+7,sel1+2
  1070.          jmp printer
  1071. char36:         
  1072.          cmp.b #56,yaz  ;8
  1073.          bne char37
  1074.          move.l #picdata+8,sel1+2
  1075.          jmp printer          
  1076. char37:         
  1077.          cmp.b #57,yaz  ;9
  1078.          bne char38
  1079.          move.l #picdata+9,sel1+2
  1080.          jmp printer
  1081. char38:         
  1082.          cmp.b #48,yaz  ;0
  1083.          bne char39
  1084.          move.l #picdata+10,sel1+2
  1085.          jmp printer
  1086. char39:
  1087.      cmp.b #$2e,yaz  ;.
  1088.          bne char40
  1089.          move.l #picdata+11,sel1+2
  1090.          jmp printer
  1091. char40:
  1092.      cmp.b #$2d,yaz  ;-
  1093.          bne char41
  1094.          move.l #picdata+12,sel1+2
  1095.          jmp printer
  1096. char41:
  1097.      cmp.b #$5b,yaz  ;[ = `
  1098.          bne char42
  1099.          move.l #picdata+13,sel1+2
  1100.          jmp printer
  1101. char42:
  1102.      cmp.b #$5d,yaz  ;] = '
  1103.          bne char43
  1104.          move.l #picdata+14,sel1+2
  1105.          jmp printer
  1106. char43:    
  1107.      cmp.b #$2c,yaz  ;,
  1108.          bne char44
  1109.          move.l #picdata+15,sel1+2
  1110.          jmp printer
  1111. char44:
  1112.      rts
  1113. printer:
  1114. sel1:     move.b picdata,picdata+3000+2
  1115.      move.l sel1+2,a1
  1116.      adda.l #40,a1
  1117.      move.l a1,sel1+2
  1118.      move.l sel1+6,a1
  1119.      adda.l #40,a1
  1120.      move.l a1,sel1+6
  1121.      addi.b #1,conta
  1122.      cmp.b #8,conta
  1123.      bne sel1
  1124.      move.b #0,conta
  1125.      move.l sel1+6,a1
  1126.      suba.l #320,a1
  1127.      adda.l #1,a1
  1128.      move.l a1,sel1+6
  1129.      addi.b #1,quest
  1130.      cmpi.b #38,quest
  1131.      bne frid
  1132.      move.l sel1+6,a1
  1133.      adda.l #320,a1
  1134.      suba.l #38,a1
  1135.      move.l a1,sel1+6
  1136.      move.b #0,quest
  1137. frid:
  1138.      rts
  1139. table:
  1140.      include 'df1:TEXT/QUESTIONS'
  1141.      include 'df1:TEXT/QUESTIONS 1'
  1142.      include 'df1:TEXT/QUESTIONS 2'
  1143.      include 'df1:TEXT/QUESTIONS 3'
  1144.      include 'df1:TEXT/QUESTIONS 4'
  1145.      include 'df1:TEXT/QUESTIONS 5'
  1146. sample:
  1147.      incbin 'df1:SAMPLES/huhu'
  1148. samplend:
  1149. click:
  1150.     cmp.b #1,music
  1151.     beq fraod
  1152.     move.l #hihat,$dff0a0
  1153.     move.w #(hihatend-hihat)/2,$dff0a4
  1154.     move.w #500,$dff0a6
  1155.     move.w #64,$dff0a8
  1156.     move.w #$8201,$dff096
  1157. fraod:
  1158.     move.b #1,moving
  1159.     move.b #1,play
  1160.     move.b #0,len
  1161. nao:    rts
  1162. hihat:
  1163.      incbin 'df1:SAMPLES/19hat'
  1164. hihatend:
  1165. howz:    
  1166.      dc.b 'SELECT THE NUMBER OF PLAYERS          '
  1167.      dc.b '                                      '
  1168.      dc.b '                                      '
  1169.      dc.b '1 PLAYER                              '
  1170.      dc.b '2 PLAYERS                             '
  1171.      dc.b '3 PLAYERS                             '
  1172.      dc.b '                                      '
  1173.      dc.b 'SELECTION COMPLETE                   *'
  1174. huhuplay:
  1175.     cmp.b #1,music
  1176.     beq frop
  1177.     cmp.b #1,wongo
  1178.     bne frop
  1179.     move.l #sample,$dff0a0
  1180.     move.w #(samplend-sample)/2,$dff0a4
  1181.     move.w #500,$dff0a6
  1182.     move.w #64,$dff0a8
  1183.     move.w #$8201,$dff096
  1184. frop:
  1185.     rts 
  1186. yeaah:
  1187.     incbin 'df1:samples/yeah'
  1188. yeaahend:
  1189. yeahplay:
  1190.     cmp.b #1,music
  1191.     beq frop1
  1192.     move.l #yeaah,$dff0a0
  1193.     move.w #(yeaahend-yeaah)/2,$dff0a4
  1194.     move.w #500,$dff0a6
  1195.     move.w #64,$dff0a8
  1196.     move.w #$8201,$dff096
  1197. frop1:
  1198.     rts
  1199. mossy:
  1200.     include 'df1:insert/noisetracker insert'
  1201. screenz:
  1202.     incbin 'df1:graphics/credits.raw'
  1203. logo:
  1204.     incbin 'df1:graphics/resolution.gfx.raw'
  1205. equals:
  1206.     cmpi.w #0,mt_voice1
  1207.     bne doit
  1208.     move.w #$0000,eq1
  1209. oi:    cmpi.w #0,mt_voice2
  1210.     bne doit1
  1211.     move.w #$0000,eq2
  1212. oi1:    cmpi.w #0,mt_voice3
  1213.     bne doit2
  1214.     move.w #$0000,eq3
  1215. oi2:    cmpi.w #0,mt_voice4
  1216.     bne doit3
  1217.     move.w #$0000,eq4
  1218.     jmp dreads
  1219. doit:    
  1220.     move.w #$0f00,eq1
  1221.     jmp oi
  1222. doit1:
  1223.     move.w #$00f0,eq2
  1224.     jmp oi1
  1225. doit2:
  1226.     move.w #$000f,eq3
  1227.     jmp oi2
  1228. doit3:
  1229.     move.w #$0ff0,eq4
  1230. dreads: 
  1231.     rts
  1232. player1blit:
  1233.     lea $dff000,a6
  1234.     move.w #$09f0,bltcon0(a6)
  1235.     clr.w bltcon1(a6)
  1236.     clr.w bltamod(a6)
  1237.     move.w #40-16,bltamod(a6)
  1238.     move.w #40-16,bltdmod(a6)
  1239.     move.l #picdata+6000,bltdpt(a6)
  1240.     move.l #logo+6200-2,bltapt(a6)
  1241.     move.w #%0000010000001000,bltsize(a6)
  1242.     rts
  1243. player2blit:
  1244.     lea $dff000,a6
  1245.     move.w #$09f0,bltcon0(a6)
  1246.     clr.w bltcon1(a6)
  1247.     clr.w bltamod(a6)
  1248.     move.w #40-16,bltamod(a6)
  1249.     move.w #40-16,bltdmod(a6)
  1250.     move.l #picdata+6000,bltdpt(a6)
  1251.     move.l #logo+6720-2,bltapt(a6)
  1252.     move.w #%0000010000001000,bltsize(a6)
  1253.     rts
  1254. player3blit:
  1255.     lea $dff000,a6
  1256.     move.w #$09f0,bltcon0(a6)
  1257.     clr.w bltcon1(a6)
  1258.     clr.w bltamod(a6)
  1259.     move.w #40-16,bltamod(a6)
  1260.     move.w #40-16,bltdmod(a6)
  1261.     move.l #picdata+6000,bltdpt(a6)
  1262.     move.l #logo+7240-2,bltapt(a6)
  1263.     move.w #%0000010000001000,bltsize(a6)
  1264.     rts
  1265. clearcompblit:
  1266.     lea $dff000,a6
  1267.     move.w #$09f0,bltcon0(a6)
  1268.     clr.w bltcon1(a6)
  1269.     clr.w bltamod(a6)
  1270.     move.w #40-16,bltamod(a6)
  1271.     move.w #40-16,bltdmod(a6)
  1272.     move.l #picdata+7000+2,bltdpt(a6)
  1273.     move.l #logo+4000+20,bltapt(a6)
  1274.     move.w #%0001010000001000,bltsize(a6)
  1275.     move.l #picdata+7000+badd+2,bltdpt(a6)
  1276.     move.l #logo+4000+badd+20,bltapt(a6)
  1277.     move.w #%0001010000001000,bltsize(a6)
  1278.     move.l #picdata+7000+badd*2+2,bltdpt(a6)
  1279.     move.l #logo+badd*2+4000+20,bltapt(a6)
  1280.     move.w #%0001010000001000,bltsize(a6)
  1281.     move.l #picdata+7000+badd*3+2,bltdpt(a6)
  1282.     move.l #logo+badd*3+4000+20,bltapt(a6)
  1283.     move.w #%0001010000001000,bltsize(a6)
  1284.     move.l #picdata+7000+badd*4+2,bltdpt(a6)
  1285.     move.l #logo+badd*4+4000+20,bltapt(a6)
  1286.     move.w #%0001010000001000,bltsize(a6)    
  1287.     rts
  1288. setposj:    
  1289.     move.l #logo+5840,crug+2
  1290.     move.l #logo+5840+badd,crug1+2
  1291.     move.l #logo+5840+badd*2,crug2+2
  1292.     move.l #logo+5840+badd*3,crug3+2
  1293.     move.l #logo+5840+badd*4,crug4+2
  1294.     move.l #picdata+10000+2,crug+6
  1295.     move.l #picdata+10000+2+badd,crug1+6
  1296.     move.l #picdata+10000+2+badd*2,crug2+6
  1297.     move.l #picdata+10000+2+badd*3,crug3+6
  1298.     move.l #picdata+10000+2+badd*4,crug4+6
  1299.     move.l #logo+5840,crag+2
  1300.     move.l #logo+5840+badd,crag1+2
  1301.     move.l #logo+5840+badd*2,crag2+2
  1302.     move.l #logo+5840+badd*3,crag3+2
  1303.     move.l #logo+5840+badd*4,crag4+2
  1304.     move.l #picdata+10000+8,crag+6
  1305.     move.l #picdata+10000+8+badd,crag1+6
  1306.     move.l #picdata+10000+8+badd*2,crag2+6
  1307.     move.l #picdata+10000+8+badd*3,crag3+6
  1308.     move.l #picdata+10000+8+badd*4,crag4+6
  1309.     move.l #logo+5840,brug+2
  1310.     move.l #logo+5840+badd,brug1+2
  1311.     move.l #logo+5840+badd*2,brug2+2
  1312.     move.l #logo+5840+badd*3,brug3+2
  1313.     move.l #logo+5840+badd*4,brug4+2
  1314.     move.l #picdata+10000+14,brug+6
  1315.     move.l #picdata+10000+14+badd,brug1+6
  1316.     move.l #picdata+10000+14+badd*2,brug2+6
  1317.     move.l #picdata+10000+14+badd*3,brug3+6
  1318.     move.l #picdata+10000+14+badd*4,brug4+6    
  1319.     move.b #1,curpla
  1320.     move.b #0,players
  1321.     move.l #howz,a1
  1322.     move.l a1,bddr
  1323.     move.l #picdata,sel1+2
  1324.     move.l #picdata+3000+2,sel1+6
  1325.     move.b #0,quest
  1326.     move.b #0,bung
  1327.     rts
  1328. scrollmessblit:
  1329.     cmpi.b #1,thistime
  1330.     bne boox
  1331.     move.b #0,thistime
  1332.     lea $dff000,a6
  1333.     move.w #$09f0,bltcon0(a6)
  1334.     move.l #%11111111111111111111111111111111,bltafwm(a6)
  1335.     clr.w bltcon1(a6)
  1336.     clr.w bltamod(a6)
  1337.     move.w #40-12,bltamod(a6)
  1338.     move.w #40-12,bltdmod(a6)
  1339.     move.l #picdata+6000+26-40,bltdpt(a6)
  1340. gop1:    move.l #screenz+40,bltapt(a6)
  1341.     move.w #%0001010010000110,bltsize(a6)
  1342.     move.l #picdata+6000+badd+26-40,bltdpt(a6)
  1343. gop2:    move.l #screenz+badd+40,bltapt(a6)
  1344.     move.w #%0001010010000110,bltsize(a6)
  1345.     move.l #picdata+6000+badd*2+26-40,bltdpt(a6)
  1346. gop3:    move.l #screenz+badd*2+40,bltapt(a6)
  1347.     move.w #%0001010010000110,bltsize(a6)
  1348.     move.l #picdata+6000+badd*3+26-40,bltdpt(a6)
  1349. gop4:    move.l #screenz+badd*3+40,bltapt(a6)
  1350.     move.w #%0001010010000110,bltsize(a6)
  1351.     move.l #picdata+6000+badd*4+26-40,bltdpt(a6)
  1352. gop5:    move.l #screenz+badd*4+40,bltapt(a6)
  1353.     move.w #%0001010010000110,bltsize(a6)    
  1354.     cmpi.b #1,scrollo
  1355.     beq gook
  1356.     move.l gop1+2,a2
  1357.     adda.l #40,a2
  1358.     move.l a2,gop1+2
  1359.     move.l gop2+2,a2
  1360.     adda.l #40,a2
  1361.     move.l a2,gop2+2
  1362.     move.l gop3+2,a2
  1363.     adda.l #40,a2
  1364.     move.l a2,gop3+2
  1365.     move.l gop4+2,a2
  1366.     adda.l #40,a2
  1367.     move.l a2,gop4+2
  1368.     move.l gop5+2,a2
  1369.     adda.l #40,a2
  1370.     move.l a2,gop5+2
  1371.     addi.b #1,countre
  1372.     cmpi.b #170,countre
  1373.     bne boox
  1374.     move.b #0,countre
  1375.     move.b #1,scrollo
  1376.     jmp boox
  1377. gook:    
  1378.     move.l gop1+2,a2
  1379.     suba.l #40,a2
  1380.     move.l a2,gop1+2
  1381.     move.l gop2+2,a2
  1382.     suba.l #40,a2
  1383.     move.l a2,gop2+2
  1384.     move.l gop3+2,a2
  1385.     suba.l #40,a2
  1386.     move.l a2,gop3+2
  1387.     move.l gop4+2,a2
  1388.     suba.l #40,a2
  1389.     move.l a2,gop4+2
  1390.     move.l gop5+2,a2
  1391.     suba.l #40,a2
  1392.     move.l a2,gop5+2
  1393.     addi.b #1,countre
  1394.     cmpi.b #170,countre
  1395.     bne boox
  1396.     move.b #0,countre
  1397.     move.b #0,scrollo
  1398. boox:
  1399.     addi.b #1,thistime
  1400.     rts
  1401. wrongblit:
  1402.     lea $dff000,a6
  1403.     move.w #$09f0,bltcon0(a6)
  1404.     clr.w bltcon1(a6)
  1405.     clr.w bltamod(a6)
  1406.     move.w #40-12,bltamod(a6)
  1407.     move.w #40-12,bltdmod(a6)
  1408.     move.l #picdata+6000+26-40,bltdpt(a6)
  1409.     move.l #screenz+24,bltapt(a6)
  1410.     move.w #%0001010010000110,bltsize(a6)
  1411.     move.l #picdata+6000+badd+26-40,bltdpt(a6)
  1412.     move.l #screenz+badd+24,bltapt(a6)
  1413.     move.w #%0001010010000110,bltsize(a6)
  1414.     move.l #picdata+6000+badd*2+26-40,bltdpt(a6)
  1415.     move.l #screenz+badd*2+24,bltapt(a6)
  1416.     move.w #%0001010010000110,bltsize(a6)
  1417.     move.l #picdata+6000+badd*3+26-40,bltdpt(a6)
  1418.     move.l #screenz+badd*3+24,bltapt(a6)
  1419.     move.w #%0001010010000110,bltsize(a6)
  1420.     move.l #picdata+6000+badd*4+26-40,bltdpt(a6)
  1421.     move.l #screenz+badd*4+24,bltapt(a6)
  1422.     move.w #%0001010010000110,bltsize(a6)    
  1423.     move.b #1,flat
  1424.     rts
  1425. rightblit:
  1426.     lea $dff000,a6
  1427.     move.w #$09f0,bltcon0(a6)
  1428.     clr.w bltcon1(a6)
  1429.     clr.w bltamod(a6)
  1430.     move.w #40-12,bltamod(a6)
  1431.     move.w #40-12,bltdmod(a6)
  1432.     move.l #picdata+6000+26-40,bltdpt(a6)
  1433.     move.l #screenz+3280+24,bltapt(a6)
  1434.     move.w #%0001010010000110,bltsize(a6)
  1435.     move.l #picdata+6000+badd+26-40,bltdpt(a6)
  1436.     move.l #screenz+badd+3280+24,bltapt(a6)
  1437.     move.w #%0001010010000110,bltsize(a6)
  1438.     move.l #picdata+6000+badd*2+26-40,bltdpt(a6)
  1439.     move.l #screenz+badd*2+3280+24,bltapt(a6)
  1440.     move.w #%0001010010000110,bltsize(a6)
  1441.     move.l #picdata+6000+badd*3+26-40,bltdpt(a6)
  1442.     move.l #screenz+badd*3+3280+24,bltapt(a6)
  1443.     move.w #%0001010010000110,bltsize(a6)
  1444.     move.l #picdata+6000+badd*4+26-40,bltdpt(a6)
  1445.     move.l #screenz+badd*4+3280+24,bltapt(a6)
  1446.     move.w #%0001010010000110,bltsize(a6)    
  1447.     move.b #1,flat
  1448.     rts
  1449. blitwin1:
  1450.     lea $dff000,a6
  1451.     move.w #$09f0,bltcon0(a6)
  1452.     clr.w bltcon1(a6)
  1453.     clr.w bltamod(a6)
  1454.     move.w #40-16,bltamod(a6)
  1455.     move.w #40-16,bltdmod(a6)
  1456.     move.l #picdata+6000,bltdpt(a6)
  1457.     move.l #logo+7760-2,bltapt(a6)
  1458.     move.w #%0000010000001000,bltsize(a6)
  1459.     rts
  1460. blitwin2:
  1461.     lea $dff000,a6
  1462.     move.w #$09f0,bltcon0(a6)
  1463.     clr.w bltcon1(a6)
  1464.     clr.w bltamod(a6)
  1465.     move.w #40-16,bltamod(a6)
  1466.     move.w #40-16,bltdmod(a6)
  1467.     move.l #picdata+6000,bltdpt(a6)
  1468.     move.l #logo+8280-2,bltapt(a6)
  1469.     move.w #%0000010000001000,bltsize(a6)
  1470.     rts    
  1471. blitwin3:
  1472.     lea $dff000,a6
  1473.     move.w #$09f0,bltcon0(a6)
  1474.     clr.w bltcon1(a6)
  1475.     clr.w bltamod(a6)
  1476.     move.w #40-16,bltamod(a6)
  1477.     move.w #40-16,bltdmod(a6)
  1478.     move.l #picdata+6000,bltdpt(a6)
  1479.     move.l #logo+8800-2,bltapt(a6)
  1480.     move.w #%0000010000001000,bltsize(a6)
  1481.     rts    
  1482. blitclr:
  1483.     lea $dff000,a6
  1484.     move.w #$09f0,bltcon0(a6)
  1485.     clr.w bltcon1(a6)
  1486.     clr.w bltamod(a6)
  1487.     move.w #40-16,bltamod(a6)
  1488.     move.w #40-16,bltdmod(a6)
  1489.     move.l #picdata+6000,bltdpt(a6)
  1490.     move.l #logo+9320-2,bltapt(a6)
  1491.     move.w #%0000010000001000,bltsize(a6)
  1492.     rts    
  1493. interblit1:
  1494.     lea $dff000,a6
  1495.     move.w #$09f0,bltcon0(a6)
  1496.     clr.w bltcon1(a6)
  1497.     clr.w bltamod(a6)
  1498.     move.w #40-12,bltamod(a6)
  1499.     move.w #40-12,bltdmod(a6)
  1500.     move.l #picdata+6000+26-40,bltdpt(a6)
  1501.     move.l #screenz+40+12,bltapt(a6)
  1502.     move.w #%0001010010000110,bltsize(a6)
  1503.     move.l #picdata+6000+badd+26-40,bltdpt(a6)
  1504.     move.l #screenz+badd+40+12,bltapt(a6)
  1505.     move.w #%0001010010000110,bltsize(a6)
  1506.     move.l #picdata+6000+badd*2+26-40,bltdpt(a6)
  1507.     move.l #screenz+badd*2+40+12,bltapt(a6)
  1508.     move.w #%0001010010000110,bltsize(a6)
  1509.     move.l #picdata+6000+badd*3+26-40,bltdpt(a6)
  1510.     move.l #screenz+badd*3+40+12,bltapt(a6)
  1511.     move.w #%0001010010000110,bltsize(a6)
  1512.     move.l #picdata+6000+badd*4+26-40,bltdpt(a6)
  1513.     move.l #screenz+badd*4+40+12,bltapt(a6)
  1514.     move.w #%0001010010000110,bltsize(a6)    
  1515.     move.b #1,flat
  1516.     move.b #2,moggy
  1517.     rts
  1518. interblit2:
  1519.     lea $dff000,a6
  1520.     move.w #$09f0,bltcon0(a6)
  1521.     clr.w bltcon1(a6)
  1522.     clr.w bltamod(a6)
  1523.     move.w #40-12,bltamod(a6)
  1524.     move.w #40-12,bltdmod(a6)
  1525.     move.l #picdata+6000+26-40,bltdpt(a6)
  1526.     move.l #screenz+3280+12,bltapt(a6)
  1527.     move.w #%0001010010000110,bltsize(a6)
  1528.     move.l #picdata+6000+badd+26-40,bltdpt(a6)
  1529.     move.l #screenz+badd+3280+12,bltapt(a6)
  1530.     move.w #%0001010010000110,bltsize(a6)
  1531.     move.l #picdata+6000+badd*2+26-40,bltdpt(a6)
  1532.     move.l #screenz+badd*2+3280+12,bltapt(a6)
  1533.     move.w #%0001010010000110,bltsize(a6)
  1534.     move.l #picdata+6000+badd*3+26-40,bltdpt(a6)
  1535.     move.l #screenz+badd*3+3280+12,bltapt(a6)
  1536.     move.w #%0001010010000110,bltsize(a6)
  1537.     move.l #picdata+6000+badd*4+26-40,bltdpt(a6)
  1538.     move.l #screenz+badd*4+3280+12,bltapt(a6)
  1539.     move.w #%0001010010000110,bltsize(a6)    
  1540.     move.b #1,flat
  1541.     move.b #3,moggy
  1542.     rts
  1543. interblit3:
  1544.     lea $dff000,a6
  1545.     move.w #$09f0,bltcon0(a6)
  1546.     clr.w bltcon1(a6)
  1547.     clr.w bltamod(a6)
  1548.     move.w #40-12,bltamod(a6)
  1549.     move.w #40-12,bltdmod(a6)
  1550.     move.l #picdata+6000+26-40,bltdpt(a6)
  1551.     move.l #screenz+3280+12+3240,bltapt(a6)
  1552.     move.w #%0001010010000110,bltsize(a6)
  1553.     move.l #picdata+6000+badd+26-40,bltdpt(a6)
  1554.     move.l #screenz+badd+3280+12+3240,bltapt(a6)
  1555.     move.w #%0001010010000110,bltsize(a6)
  1556.     move.l #picdata+6000+badd*2+26-40,bltdpt(a6)
  1557.     move.l #screenz+badd*2+3280+12+3240,bltapt(a6)
  1558.     move.w #%0001010010000110,bltsize(a6)
  1559.     move.l #picdata+6000+badd*3+26-40,bltdpt(a6)
  1560.     move.l #screenz+badd*3+3280+12+3240,bltapt(a6)
  1561.     move.w #%0001010010000110,bltsize(a6)
  1562.     move.l #picdata+6000+badd*4+26-40,bltdpt(a6)
  1563.     move.l #screenz+badd*4+3280+12+3240,bltapt(a6)
  1564.     move.w #%0001010010000110,bltsize(a6)    
  1565.     move.b #1,flat
  1566.     move.b #1,moggy
  1567.     rts
  1568.     
  1569.  
  1570.